Option Explicit
Sub D_Sample037()
    Dim myWb       As Workbook
    Dim myFileName As String
    myFileName = ThisWorkbook.Path & "\temp.xls"                'wɮצW
    Set myWb = Workbooks(1)                                     'Nï
    'ǳƨ즹
    myWb.SaveAs Filename:=myFileName
    Set myWb = Nothing                                           '
End Sub

